home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 70 / Mac Magazin CD 70.iso / macware / MacGhostView Folder / lib / gs_type1.ps < prev    next >
Encoding:
Text File  |  2000-03-26  |  5.5 KB  |  154 lines  |  [TEXT/R*ch]
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: gs_type1.ps,v 1.2 2000/03/10 03:37:14 lpd Exp $
  19. % Type 1 font support code.
  20.  
  21. % The standard representation for PostScript compatible fonts is described
  22. % in the book "Adobe Type 1 Font Format", published by Adobe Systems Inc.
  23.  
  24. % Define an augmented version of .buildfont1 that inserts UnderlinePosition
  25. % and UnderlineThickness entries in FontInfo if they aren't there already.
  26. % (This works around the incorrect assumption, made by many word processors,
  27. % that these entries are present in the built-in fonts.)
  28. /.buildfont1
  29.  { dup /FontInfo known not
  30.     { .growfontdict dup /FontInfo 2 dict put }
  31.    if
  32.    dup dup /FontInfo get dup dup
  33.    /UnderlinePosition known exch /UnderlineThickness known and
  34.     { pop pop        % entries already present
  35.     }
  36.     { dup length 2 add dict .copydict
  37.       dup /UnderlinePosition known not
  38.        { dup /UnderlinePosition 3 index /FontBBox .knownget
  39.           { 1 get 2 div }            % 1/2 the font descent
  40.       { -100 } ifelse put
  41.        }
  42.       if
  43.       dup /UnderlineThickness known not
  44.        { dup /UnderlineThickness 3 index /FontBBox .knownget
  45.           { dup 3 get exch 1 get sub 20 div }    % 1/20 the font height
  46.       { 50 } ifelse put
  47.        }
  48.       if
  49.       1 index /FontInfo get wcheck not { readonly } if
  50.       /FontInfo exch put
  51.     }
  52.    ifelse //.buildfont1
  53.  } bind def
  54. % If the diskfont feature isn't included, define a dummy .loadfontdict.
  55. /.loadfontdict where
  56.  { pop }
  57.  { /.loadfontdict 0 dict readonly def }
  58. ifelse
  59. /.loadfontfile        % <file> .loadfontfile -
  60.  { mark exch
  61.    DISKFONTS { .loadfontdict begin } if
  62.     % In order to load fonts reliably, we should push systemdict
  63.     % here.  However, Ed Taft says that Adobe implementations
  64.     % push userdict and nothing else!
  65.     % We really would just like systemdict on the stack,
  66.     % but fonts produced by Fontographer require a writable dictionary.
  67.     % However, we can't use any of the other well-known dictionaries
  68.     % (such as userdict), since the whole point of pushing systemdict
  69.     % is to make sure that nothing important has been redefined.
  70.    userdict begin
  71.     % We can't just use `run', because we want to check for .PFB files.
  72.    currentpacking
  73.     { false setpacking .loadfont1 true setpacking }
  74.     { .loadfont1 }
  75.    ifelse end
  76.     { stop } if
  77.    DISKFONTS { end } if
  78.    cleartomark
  79.  } bind def
  80. /.loadfont1 {        % <file> .loadfont1 <errorflag>
  81.   {    % We would like to use `false /PFBDecode filter',
  82.     % but this occasionally produces a whitespace character as
  83.     % the first of an eexec section, so we can't do it.
  84.     % Also, since the real input file never reaches EOF if we are using
  85.     % a PFBDecode filter (the filter stops just after reading the last
  86.     % character), we must explicitly close the real file in this case.
  87.     % Since the file might leave garbage on the operand stack,
  88.     % we have to create a procedure to close the file reliably.
  89.     dup read not { -1 } if
  90.     2 copy unread 16#80 eq {
  91.     dup true /PFBDecode filter cvx
  92.     exch .currentresourcefile eq {
  93.       dup /.execasresource .systemvar
  94.     } {
  95.       {exec}
  96.     } ifelse
  97.     2 index cvlit
  98.     /closefile .systemvar 3 .execn
  99.       } {
  100.     cvx exec
  101.     } ifelse
  102.   } stopped
  103. } bind def
  104.  
  105. % Here are the BuildChar and BuildGlyph implementation for Type 1 fonts.
  106. % The names %Type1BuildChar and %Type1BuildGlyph are known to the interpreter.
  107. % The real work is done in an operator:
  108. %    <font> <code|name> <name> <charstring> .type1execchar -
  109.  
  110. (%Type1BuildChar)  cvn {    % <font> <code> %Type1BuildChar -
  111.   1 index /Encoding get 1 index get .type1build .type1execchar
  112. } bind def
  113. (%Type1BuildGlyph) cvn {    % <font> <name> %Type1BuildGlyph -
  114.   dup .type1build .type1execchar
  115. } bind def
  116. % Note: this procedure is used for both Type 1 and Type 2 fonts.
  117. /.type1build {        % <font> <code|name> <name> .type1build
  118.             %   <font> <code|name> <name> <charstring>
  119.   2 index begin
  120.     dup CharStrings exch .knownget not {
  121.       2 copy eq { exch pop /.notdef exch } if
  122.        QUIET not
  123.     { (Substituting .notdef for ) print = flush }
  124.     { pop }
  125.        ifelse
  126.        /.notdef CharStrings /.notdef get
  127.     } if
  128.   end
  129. } bind def
  130. % CCRun is an undocumented procedure provided for Type 4 fonts.
  131. 1183615869 internaldict begin
  132. /CCRun {    % <font> <code|name> <charstring> CCRun -
  133.   1 index dup type /integertype eq {
  134.     3 index /Encoding get exch get
  135.   } if exch .type1execchar
  136. } bind def
  137. end
  138.  
  139. % Register the font types for definefont.
  140. buildfontdict 1 /.buildfont1 cvx put
  141. buildfontdict 4 /.buildfont4 cvx put
  142.  
  143. % Add Type 2 support if applicable.
  144. /.buildfont2 where not { (%END2) .skipeof } if
  145. pop
  146. (%Type2BuildChar)  cvn {    % <font> <code> %Type2BuildChar -
  147.   1 index /Encoding get 1 index get .type1build .type2execchar
  148. } bind def
  149. (%Type2BuildGlyph) cvn {    % <font> <name> %Type2BuildGlyph -
  150.   dup .type1build .type2execchar
  151. } bind def
  152. buildfontdict 2 /.buildfont2 cvx put
  153. %END2
  154.